home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD BIT 75
/
CD BIT 75.iso
/
Software
/
LogOut
/
disk1
/
_SETUP.1
/
GCondom7.exe
/
0
/
RCDATA
/
TFRMALTERNATIVA
/
TFRMALTERNATIVA.txt
Wrap
Text File
|
2004-10-21
|
6KB
|
255 lines
object frmAlternativa: TfrmAlternativa
Left = 202
Top = 104
BorderStyle = bsNone
Caption = 'Alternativa'
ClientHeight = 383
ClientWidth = 677
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Shape1: TShape
Left = 0
Top = 0
Width = 677
Height = 383
Align = alClient
end
object Label2: TLabel
Left = 16
Top = 336
Width = 155
Height = 29
Caption = 'Condom�nios'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -24
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Shape2: TShape
Left = 224
Top = 340
Width = 65
Height = 5
Pen.Color = clRed
Pen.Width = 3
end
object Shape3: TShape
Left = 224
Top = 356
Width = 65
Height = 5
Pen.Width = 3
end
object Label1: TLabel
Left = 304
Top = 334
Width = 65
Height = 13
Caption = 'A ser utilizado'
Transparent = True
end
object Label4: TLabel
Left = 304
Top = 350
Width = 23
Height = 13
Caption = 'Livre'
Transparent = True
end
object Label6: TLabel
Left = 92
Top = 10
Width = 510
Height = 64
Alignment = taCenter
Caption =
'O condom�nio em que ia trabalhar est� a ser utilizado noutro pos' +
'to.'#13#10'Segue-se a lista de condom�nios existentes e a sua situa��o' +
'.'#13#10'Seleccione um condom�nio livre para trabalhar e fa�a DBClick ' +
'ou prima o bot�o Seleccionar.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object Memo1: TMemo
Left = 504
Top = 280
Width = 185
Height = 209
Lines.Strings = (
'')
TabOrder = 3
Visible = False
end
object BitBtn1: TBitBtn
Left = 481
Top = 336
Width = 90
Height = 25
Caption = '&Seleccionar'
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkOK
end
object RxDBGrid1: TRxDBGrid
Left = 14
Top = 77
Width = 650
Height = 239
Color = clWhite
Ctl3D = True
DataSource = DataSource1
FixedColor = 13551795
Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = RxDBGrid1DblClick
OnGetCellParams = RxDBGrid1GetCellParams
Columns = <
item
Expanded = False
FieldName = 'Condom�nio'
Width = 234
Visible = True
end
item
Expanded = False
FieldName = 'Pessoa Colectiva'
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'Contr.'
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'Ano'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'ID'
Title.Caption = 'C�d.'
Width = 35
Visible = True
end>
end
object BitBtn2: TBitBtn
Left = 580
Top = 336
Width = 90
Height = 25
Caption = '&Terminar'
TabOrder = 2
Kind = bkCancel
end
object BitBtn3: TBitBtn
Left = 380
Top = 336
Width = 90
Height = 25
Caption = '&Actualizar'
Default = True
TabOrder = 4
OnClick = BitBtn3Click
Glyph.Data = {
F6000000424DF60000000000000076000000280000000F000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333444
4430333333333CCC4330334433333CCC43303CC433333CC4C4303C4333333C33
CC40C433333333333C40C433333333333C40C433333333333C40C43333333333
3C40C433333333333C403C4333333333CC403CC43333333CC43033CC433333CC
4330333CC44444C4333033333CCCCC3333303333333333333330}
end
object BitBtn4: TBitBtn
Left = 577
Top = 16
Width = 90
Height = 25
Caption = 'S� &Consulta'
TabOrder = 5
Visible = False
Kind = bkIgnore
end
object Table1: TTable
Filtered = True
Left = 16
Top = 8
object Table1ID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object Table1Condomnio: TStringField
FieldName = 'Condom�nio'
Size = 50
end
object Table1PessoaColectiva: TStringField
FieldName = 'Pessoa Colectiva'
Size = 80
end
object Table1Contr: TStringField
FieldName = 'Contr.'
Size = 12
end
object Table1Ano: TSmallintField
FieldName = 'Ano'
end
object Table1Moeda: TStringField
FieldName = 'Moeda'
Size = 10
end
object Table1Dados: TStringField
FieldName = 'Dados'
Size = 50
end
object Table1TipoQuota: TStringField
FieldName = 'Tipo Quota'
Size = 10
end
object Table1Descrio: TStringField
FieldName = 'Descri��o'
Size = 80
end
object Table1AnoFim: TSmallintField
FieldName = 'Ano Fim'
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 48
Top = 8
end
object Table2: TTable
Left = 80
Top = 8
end
end